∂16-Apr-81  0012	RPG	PPSAV'd text
NIL)
       (DEFUN |CXR SETF-X-ACCESS| (NIL INDEX FROB) 
	      (LIST 'CXR INDEX FROB))
       (DEFUN |CXR SETF-X-INVERT| (NIL VALUE INDEX FROB) 
	      (LIST 'RPLACX INDEX FROB VALUE))
       (DEFUN (CXR SETF-X) (G0011) 
	      ((LAMBDA (G0012 FROB INDEX) 
	       (SETQ G0012 (CDR G0012))
	       (SETQ INDEX (CAR G0012))
	       (SETQ FROB (CAR (CDR G0012)))
	       (SETF-STRUCT '|CXR SETF-X-ACCESS|
		    '|CXR SETF-X-INVERT|
		    'NIL
		    (LIST INDEX FROB)))
	       G0011
	       NIL
	       NIL)))

← ↑C
↑C

.R PPSAV